Green Digital

THIS IS A MOCKUP VERSION PLEASE DO NOT CITE

Sustainable/Green Digital Skills focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities.

Green Digital Skills

ADD TEXT BEFORE TABSET

Green Knowledge

The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.

Green Performance

ADD TEXT BEFORE TABSET

--- title: "{{< iconify ph recycle-fill >}} Green Digital" format: html --- ```{r} #| include: false library(dashboardr) ``` **THIS IS A MOCKUP VERSION PLEASE DO NOT CITE** **Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities. ```{r setup} #| echo: false #| warning: false #| message: false #| error: false #| results: 'hide' # Load required libraries library(dashboardr) library(dplyr) library(highcharter) # Global chunk options knitr::opts_chunk$set( echo = FALSE, warning = FALSE, message = FALSE, error = FALSE, fig.width = 12, fig.height = 8, dpi = 300 ) # Load data from dataset_4014obs.rds data <- readRDS('dataset_4014obs.rds') # Data summary cat('Dataset loaded:', nrow(data), 'rows,', ncol(data), 'columns\n') # Create filtered datasets # Each filter is applied once and reused across visualizations data_filtered_984a0efe <- data %>% dplyr::filter(wave == 1) data_filtered_4af682fd <- data %>% dplyr::filter(wave == 2) ``` ## {{< iconify ph lightning-fill >}} Green Digital Skills ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r green-wave1-overall-2} # Sustainable/Green Digital Skills result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(SEnv1, SEnv2, SEnv3), title = "Sustainable/Green Digital Skills", questions = c("SEnv1", "SEnv2", "SEnv3"), question_labels = c("I know how to reduce the battery use of a phone or computer.", "I know how I can buy a phone or computer in a 'green' or sustainable way.", "I know how to have a phone or computer recycled."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave1-age-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave1-age-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave1-age-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv3" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave1-gender-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave1-gender-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave1-gender-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv3" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave1-edu-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave1-edu-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave1-edu-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv3" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r green-wave2-overall-2} # Sustainable/Green Digital Skills result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(SEnv1, SEnv2, SEnv3), title = "Sustainable/Green Digital Skills", questions = c("SEnv1", "SEnv2", "SEnv3"), question_labels = c("I know how to reduce the battery use of a phone or computer.", "I know how I can buy a phone or computer in a 'green' or sustainable way.", "I know how to have a phone or computer recycled."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave2-age-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave2-age-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave2-age-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "SEnv3" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave2-gender-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave2-gender-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave2-gender-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "SEnv3" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-wave2-edu-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv1), title = "I know how to reduce the battery use of a phone or computer.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-wave2-edu-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv2), title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-wave2-edu-item3-2} # I know how to have a phone or computer recycled. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, SEnv3), title = "I know how to have a phone or computer recycled.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0.5, 2.5, 3.5, 5.5), stack_bin_labels = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), stack_order = c("(Completely) Untrue (1-2)", "Not true and not untrue (3)", "(Completely) True (4-5)"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "SEnv3" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-overtime-overall-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_timeline( data = data, title = "I know how to reduce the battery use of a phone or computer.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SEnv1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-overtime-overall-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_timeline( data = data, title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SEnv2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-overtime-overall-item3-2} # I know how to have a phone or computer recycled. result <- create_timeline( data = data, title = "I know how to have a phone or computer recycled.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), response_filter_label = "Percentage who answered (Completely) True (4-5)", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, response_var = "SEnv3" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-overtime-age-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_timeline( data = data, title = "I know how to reduce the battery use of a phone or computer.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-overtime-age-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_timeline( data = data, title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-overtime-age-item3-2} # I know how to have a phone or computer recycled. result <- create_timeline( data = data, title = "I know how to have a phone or computer recycled.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv3", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-overtime-gender-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_timeline( data = data, title = "I know how to reduce the battery use of a phone or computer.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-overtime-gender-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_timeline( data = data, title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-overtime-gender-item3-2} # I know how to have a phone or computer recycled. result <- create_timeline( data = data, title = "I know how to have a phone or computer recycled.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv3", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r green-overtime-edu-item1-2} # I know how to reduce the battery use of a phone or computer. result <- create_timeline( data = data, title = "I know how to reduce the battery use of a phone or computer.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r green-overtime-edu-item2-2} # I know how I can buy a phone or computer in a 'green' or sustainable way. result <- create_timeline( data = data, title = "I know how I can buy a phone or computer in a 'green' or sustainable way.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r green-overtime-edu-item3-2} # I know how to have a phone or computer recycled. result <- create_timeline( data = data, title = "I know how to have a phone or computer recycled.", time_var = "wave_time_label", chart_type = "line", response_filter = c(4, 5), x_label = "", y_label = "Percentage who answered (Completely) True (4-5)", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), y_min = 0, y_max = 100, weight_var = "weging_GAMO", response_var = "SEnv3", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph book-open-fill >}} Green Knowledge **Sustainable/Green Digital Skills** focus on environmentally conscious technology use: reducing energy consumption, buying sustainable devices, recycling electronics, and understanding the environmental impact of digital activities. ```{r, echo=FALSE, message=FALSE, warning=FALSE} create_blockquote("The following statements are about the internet. Please indicate if the sentence is true or untrue, according to you. If you don't know, please choose 'I don't know'. You don't have to guess. If you don't understand the question, please choose 'I don't understand the question.' Nearly everyone will not know or understand questions. This is normal and something that we want to know.", preset = "question") ``` ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r kgreen-wave1-overall-2} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(KEnv2RC, KEnv3RC), title = "", questions = c("KEnv2RC", "KEnv3RC"), question_labels = c("Phones contain materials that mineworkers extract from mines.", "The amount of data and WiFi you use does not affect CO2-emissions or the climate."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave1-age-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave1-age-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KEnv3RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave1-gender-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave1-gender-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KEnv3RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave1-edu-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave1-edu-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KEnv3RC" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r kgreen-wave2-overall-2} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(KEnv2RC, KEnv3RC), title = "", questions = c("KEnv2RC", "KEnv3RC"), question_labels = c("Phones contain materials that mineworkers extract from mines.", "The amount of data and WiFi you use does not affect CO2-emissions or the climate."), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave2-age-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave2-age-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "KEnv3RC" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave2-gender-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave2-gender-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "KEnv3RC" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-wave2-edu-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KEnv2RC), title = "Phones contain materials that mineworkers extract from mines.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-wave2-edu-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, KEnv3RC), title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), stack_map_values = list("1" = "Correctly Answered", "0" = "Incorrectly Answered"), stack_order = c("Don't Know", "Correctly Answered", "Incorrectly Answered"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "KEnv3RC" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-overtime-overall-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_timeline( data = data, title = "Phones contain materials that mineworkers extract from mines.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KEnv2RC" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-overtime-overall-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_timeline( data = data, title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "KEnv3RC" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-overtime-age-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_timeline( data = data, title = "Phones contain materials that mineworkers extract from mines.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv2RC", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-overtime-age-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_timeline( data = data, title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv3RC", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-overtime-gender-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_timeline( data = data, title = "Phones contain materials that mineworkers extract from mines.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv2RC", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-overtime-gender-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_timeline( data = data, title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv3RC", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r kgreen-overtime-edu-item1-2} # Phones contain materials that mineworkers extract from mines. result <- create_timeline( data = data, title = "Phones contain materials that mineworkers extract from mines.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv2RC", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r kgreen-overtime-edu-item2-2} # The amount of data and WiFi you use does not affect CO2-emissions or the climate. result <- create_timeline( data = data, title = "The amount of data and WiFi you use does not affect CO2-emissions or the climate.", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "KEnv3RC", group_var = "Education" ) result ``` ::: ::: ::: ## {{< iconify ph clipboard-text >}} Green Performance ADD TEXT BEFORE TABSET ::: {.panel-tabset} ### {{< iconify ph number-circle-one-fill >}} Wave 1 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-green-wave1-overall-2} # result <- create_stackedbars( data = data_filtered_984a0efe %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9), title = "", questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"), question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-age-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-age-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-age-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-age-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-age-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-age-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-age-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-age-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-age-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(AgeGroup, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-gender-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-gender-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-gender-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-gender-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-gender-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-gender-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-gender-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-gender-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-gender-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(geslacht, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave1-edu-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave1-edu-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave1-edu-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave1-edu-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave1-edu-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave1-edu-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave1-edu-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave1-edu-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave1-edu-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_984a0efe %>% tidyr::drop_na(Education, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_9" ) result ``` ::: ::: ### {{< iconify ph number-circle-two-fill >}} Wave 2 ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ```{r perf-green-wave2-overall-2} # result <- create_stackedbars( data = data_filtered_4af682fd %>% tidyr::drop_na(PSGDS1_1, PSGDS1_2, PSGDS1_3, PSGDS1_4, PSGDS1_5, PSGDS1_6, PSGDS1_7, PSGDS1_8, PSGDS1_9), title = "", questions = c("PSGDS1_1", "PSGDS1_2", "PSGDS1_3", "PSGDS1_4", "PSGDS1_5", "PSGDS1_6", "PSGDS1_7", "PSGDS1_8", "PSGDS1_9"), question_labels = c("Clean mailbox", "Use sustainable search engines", "Avoid unnecessary Cloud storage", "Turn down screen brightness", "Use sleep mode", "Close unused phone apps", "Recycle devices", "Repair before replacing", "None of these actions"), stacked_type = "percent", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), horizontal = TRUE, x_label = "", stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), stack_label = NULL, weight_var = "weging_GAMO" ) result ``` ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-age-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-age-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-age-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-age-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-age-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-age-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-age-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-age-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-age-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(AgeGroup, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "AgeGroup", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-gender-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-gender-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-gender-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-gender-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-gender-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-gender-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-gender-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-gender-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-gender-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(geslacht, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "geslacht", stack_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-wave2-edu-item1-2} # Clean mailbox result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_1), title = "Clean mailbox", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-wave2-edu-item2-2} # Use sustainable search engines result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_2), title = "Use sustainable search engines", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-wave2-edu-item3-2} # Avoid unnecessary Cloud storage result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_3), title = "Avoid unnecessary Cloud storage", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-wave2-edu-item4-2} # Turn down screen brightness result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_4), title = "Turn down screen brightness", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-wave2-edu-item5-2} # Use sleep mode result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_5), title = "Use sleep mode", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-wave2-edu-item6-2} # Close unused phone apps result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_6), title = "Close unused phone apps", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-wave2-edu-item7-2} # Recycle devices result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_7), title = "Recycle devices", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-wave2-edu-item8-2} # Repair before replacing result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_8), title = "Repair before replacing", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-wave2-edu-item9-2} # None of these actions result <- create_stackedbar( data = data_filtered_4af682fd %>% tidyr::drop_na(Education, PSGDS1_9), title = "None of these actions", stacked_type = "percent", horizontal = TRUE, stack_breaks = c(0, 10, 20, 30), stack_bin_labels = c("Not selected", "Selected"), stack_map_values = list("1" = "Selected", "0" = "Not selected"), stack_order = c("Not selected", "Selected"), color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", x_var = "Education", stack_var = "PSGDS1_9" ) result ``` ::: ::: ### {{< iconify ph chart-line-fill >}} Over Time ::: {.panel-tabset} ##### {{< iconify ph users-fill >}} Overall ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-overall-item1-2} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_1" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-overall-item2-2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_2" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-overall-item3-2} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_3" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-overall-item4-2} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_4" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-overall-item5-2} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_5" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-overall-item6-2} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_6" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-overall-item7-2} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_7" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-overall-item8-2} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_8" ) result ``` ###### item9 ```{r perf-green-overtime-overall-item9-2} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, response_filter_label = "Percentage who selected/answered correctly", response_filter_combine = TRUE, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), weight_var = "weging_GAMO", response_var = "PSGDS1_9" ) result ``` ::: ##### {{< iconify mdi:human-male-male-child >}} Age ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-age-item1-2} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-age-item2-2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-age-item3-2} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-age-item4-2} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-age-item5-2} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-age-item6-2} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-age-item7-2} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "AgeGroup" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-age-item8-2} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "AgeGroup" ) result ``` ###### item9 ```{r perf-green-overtime-age-item9-2} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "AgeGroup" ) result ``` ::: ##### {{< iconify mdi gender-transgender >}} Gender ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-gender-item1-2} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-gender-item2-2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-gender-item3-2} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-gender-item4-2} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-gender-item5-2} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-gender-item6-2} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-gender-item7-2} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "geslacht" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-gender-item8-2} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "geslacht" ) result ``` ###### item9 ```{r perf-green-overtime-gender-item9-2} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "geslacht" ) result ``` ::: ##### {{< iconify ph graduation-cap-fill >}} Education ::: {.panel-tabset} ###### {{< iconify ph chat-circle-fill >}} Question 1 ```{r perf-green-overtime-edu-item1-2} # Clean mailbox result <- create_timeline( data = data, title = "Clean mailbox", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_1", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 2 ```{r perf-green-overtime-edu-item2-2} # Use sustainable search engines result <- create_timeline( data = data, title = "Use sustainable search engines", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_2", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 3 ```{r perf-green-overtime-edu-item3-2} # Avoid unnecessary Cloud storage result <- create_timeline( data = data, title = "Avoid unnecessary Cloud storage", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_3", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 4 ```{r perf-green-overtime-edu-item4-2} # Turn down screen brightness result <- create_timeline( data = data, title = "Turn down screen brightness", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_4", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 5 ```{r perf-green-overtime-edu-item5-2} # Use sleep mode result <- create_timeline( data = data, title = "Use sleep mode", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_5", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 6 ```{r perf-green-overtime-edu-item6-2} # Close unused phone apps result <- create_timeline( data = data, title = "Close unused phone apps", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_6", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 7 ```{r perf-green-overtime-edu-item7-2} # Recycle devices result <- create_timeline( data = data, title = "Recycle devices", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_7", group_var = "Education" ) result ``` ###### {{< iconify ph chat-circle-fill >}} Question 8 ```{r perf-green-overtime-edu-item8-2} # Repair before replacing result <- create_timeline( data = data, title = "Repair before replacing", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_8", group_var = "Education" ) result ``` ###### item9 ```{r perf-green-overtime-edu-item9-2} # None of these actions result <- create_timeline( data = data, title = "None of these actions", time_var = "wave_time_label", chart_type = "line", response_filter = 1, y_min = 0, y_max = 100, x_label = "", y_label = "Percentage who selected/answered correctly", color_palette = c("#3D7271", "#E28D50", "#F5D76E", "#C7E6D5", "#0F6B5A", "#BABACD"), response_filter_label = NULL, weight_var = "weging_GAMO", response_var = "PSGDS1_9", group_var = "Education" ) result ``` ::: ::: :::